home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / MPW Interfaces & Libraries / PInterfaces / DeskBus.p < prev    next >
Encoding:
Text File  |  1992-01-29  |  1.6 KB  |  73 lines  |  [TEXT/MPS ]
  1.  
  2. {
  3. Created: Sunday, September 15, 1991 at 10:14 PM
  4.  DeskBus.p
  5.  Pascal Interface to the Macintosh Libraries
  6.  
  7.   Copyright Apple Computer, Inc. 1987-1991
  8.   All rights reserved
  9. }
  10.  
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT DeskBus;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingDeskBus}
  22. {$SETC UsingDeskBus := 1}
  23.  
  24. {$I+}
  25. {$SETC DeskBusIncludes := UsingIncludes}
  26. {$SETC UsingIncludes := 1}
  27. {$IFC UNDEFINED UsingTypes}
  28. {$I $$Shell(PInterfaces)Types.p}
  29. {$ENDC}
  30. {$SETC UsingIncludes := DeskBusIncludes}
  31.  
  32. TYPE
  33. ADBAddress = SignedByte;
  34.  
  35. ADBOpBPtr = ^ADBOpBlock;
  36. ADBOpBlock = RECORD
  37.  dataBuffPtr: Ptr;            {address of data buffer}
  38.  opServiceRtPtr: Ptr;        {service routine pointer}
  39.  opDataAreaPtr: Ptr;        {optional data area address}
  40.  END;
  41.  
  42. ADBDBlkPtr = ^ADBDataBlock;
  43. ADBDataBlock = PACKED RECORD
  44.  devType: SignedByte;        {device type}
  45.  origADBAddr: SignedByte;    {original ADB Address}
  46.  dbServiceRtPtr: Ptr;        {service routine pointer}
  47.  dbDataAreaAddr: Ptr;        {data area address}
  48.  END;
  49.  
  50. ADBSInfoPtr = ^ADBSetInfoBlock;
  51. ADBSetInfoBlock = RECORD
  52.  siServiceRtPtr: Ptr;        {service routine pointer}
  53.  siDataAreaAddr: Ptr;        {data area address}
  54.  END;
  55.  
  56.  
  57. PROCEDURE ADBReInit;
  58.  INLINE $A07B;
  59. FUNCTION ADBOp(data: Ptr;compRout: ProcPtr;buffer: Ptr;commandNum: INTEGER): OSErr;
  60. FUNCTION CountADBs: INTEGER;
  61.  INLINE $A077,$3E80;
  62. FUNCTION GetIndADB(VAR info: ADBDataBlock;devTableIndex: INTEGER): ADBAddress;
  63. FUNCTION GetADBInfo(VAR info: ADBDataBlock;adbAddr: ADBAddress): OSErr;
  64. FUNCTION SetADBInfo(VAR info: ADBSetInfoBlock;adbAddr: ADBAddress): OSErr;
  65.  
  66.  
  67. {$ENDC} { UsingDeskBus }
  68.  
  69. {$IFC NOT UsingIncludes}
  70.  END.
  71. {$ENDC}
  72.  
  73.